perm filename FIB.F4[NEW,LCS] blob sn#330398 filedate 1978-01-22 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	CC	DATA FIB/1.618/, RFIB/0.616/
C00003 ENDMK
CāŠ—;
CC	DATA FIB/1.618/, RFIB/0.616/
	DATA FIB/0.618/, RFIB/-.382/,ALG/0.6931472/
100	ACCEPT 10,A
10	FORMAT(F)
	PFIBX=14
	IF(A.EQ.1)GO TO 20
	Z=FIB
	IF(A.LT.1)Z=RFIB
	RH=ABS(ALOG(A)/ALG)
200	TYPE 10,RH
	L=RH
	IF(L.EQ.0)GO TO 4
	DO 3 K=1,L
3	PFIBX=PFIBX+PFIBX*Z
4	RH=RH-L
	IF(RH.EQ.0)GO TO 20
	PFIBX=PFIBX+PFIBX*Z*RH
20	TYPE 10,PFIBX
	GO TO 100
	END